home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / uhren & terminkalender / time / tolleuhr / tolleuhr_asm / source / tolleuhr.lib.020.s.diff < prev    next >
Text File  |  1996-04-07  |  6KB  |  233 lines
  1. *** normal.s    Fri Nov 17 20:18:21 1995
  2. --- tolleuhr.s    Fri Nov 17 20:18:45 1995
  3. ***************
  4. *** 1,5 ****
  5. --- 1,150 ----
  6.   ***************************************************************************
  7.   
  8. + ; tolleuhr.library v37.1 - 15/11/95 by Gunther Nikl - first version
  9. + 
  10. + ***************************************************************************
  11. + 
  12. + ; include stuff
  13. + 
  14. +         include    exec/types.i
  15. +         include    exec/resident.i
  16. +         include    exec/libraries.i
  17. +         include    exec/initializers.i
  18. +         include    lvo30/exec_lib.i
  19. + 
  20. + ; specific defines
  21. + 
  22. + UHRVER        equ    37
  23. + UHRREV        equ    1
  24. + 
  25. + ; macro stuff
  26. + 
  27. + RECALL        MACRO
  28. +         jsr    _LVO\1(a6)
  29. +         ENDM
  30. + 
  31. + LIBVEC        macro
  32. +         dc.w    \1-FuncTab
  33. +         endm
  34. + 
  35. + ; class base
  36. + 
  37. +     STRUCTURE ClassBase,36
  38. + 
  39. +      ULONG    cb_SegList
  40. +      ULONG    cb_SysBase
  41. + 
  42. +     LABEL cb_SIZEOF
  43. + 
  44. + ***************************************************************************
  45. + 
  46. + start        moveq    #-1,d0
  47. +         rts
  48. + 
  49. + ***************************************************************************
  50. + 
  51. + RomTag        dc.w    RTC_MATCHWORD
  52. +         dc.l    RomTag
  53. +         dc.l    EndTag
  54. +         dc.b    RTF_AUTOINIT
  55. +         dc.b    UHRVER
  56. +         dc.b    NT_LIBRARY
  57. +         dc.b    0
  58. +         dc.l    LibName
  59. +         dc.l    IdString
  60. +         dc.l    InitTab
  61. + EndTag
  62. + 
  63. + ;--------------------------------------------------------------------------
  64. + 
  65. + LibName        dc.b    'tolleuhr.library',0
  66. + IdString    dc.b    'tolleuhr 37.1 (15.11.95)'
  67. +         dc.b    ' by M.Fleischer and G.Nikl',13,10,0
  68. + 
  69. + ;--------------------------------------------------------------------------
  70. + 
  71. +         cnop    0,4
  72. + 
  73. + InitTab        dc.l    cb_SIZEOF
  74. +         dc.l    FuncTab
  75. +         dc.l    ResInfo
  76. +         dc.l    InitFunc
  77. + 
  78. + ;--------------------------------------------------------------------------
  79. + 
  80. + FuncTab        dc.w    -1
  81. +         LIBVEC    LibOpen
  82. +         LIBVEC    LibClose
  83. +         LIBVEC    LibExpunge
  84. +         LIBVEC    LibExtFunc
  85. +         LIBVEC    LibClock
  86. +         dc.w    -1
  87. + 
  88. + ;--------------------------------------------------------------------------
  89. + 
  90. + ResInfo        INITBYTE LN_TYPE,NT_LIBRARY
  91. +         INITLONG LN_NAME,LibName
  92. +         INITBYTE LIB_FLAGS,(LIBF_SUMUSED!LIBF_CHANGED)
  93. +         INITWORD LIB_VERSION,UHRVER
  94. +         INITWORD LIB_REVISION,UHRREV
  95. +         INITLONG LIB_IDSTRING,IdString
  96. +         dc.w 0
  97. + 
  98. + ***************************************************************************
  99. + 
  100. +         cnop    0,4
  101. + 
  102. + InitFunc    suba.l    a1,a1
  103. +         cmp.w    #37,20(a6)        ; need at least 2.04!
  104. +         bcs.s    1$
  105. +         move.l    d0,a1
  106. +         move.l    a0,cb_SegList(a1)    ; save seglist
  107. +         move.l    a6,cb_SysBase(a1)    ; cache SysBase (speed!)
  108. + 1$        move.l    a1,d0
  109. +         rts
  110. + 
  111. + ;--------------------------------------------------------------------------
  112. + 
  113. + LibOpen        addq.w    #1,32(a6)        ; one more user
  114. +         and.b    #$f7,14(a6)
  115. +         move.l    a6,d0
  116. +         rts
  117. + ;--------------------------------------------------------------------------
  118. + 
  119. + LibClose    subq.w    #1,32(a6)        ; one less user
  120. +         bne.s    LibExtFunc
  121. +         btst    #3,14(a6)
  122. +         bne.s    LibExpunge        ; expunge!
  123. + 
  124. + ;--------------------------------------------------------------------------
  125. + 
  126. + LibExtFunc    moveq    #0,d0            ; reserved library entry
  127. +         rts
  128. + 
  129. + ;--------------------------------------------------------------------------
  130. + 
  131. + LibExpunge    movem.l    a2/a5/a6,-(sp)
  132. +         move.l    a6,a5
  133. +         suba.l    a2,a2
  134. +         or.b    #8,14(a5)        ; set LIBF_DELEXP
  135. +         tst.w    32(a5)
  136. +         bne.s    1$            ; still in use...
  137. +         move.l    cb_SysBase(a5),a6
  138. +         move.l    cb_SegList(a5),a2    ; get seglist
  139. +         move.l    a5,a1
  140. +         RECALL    Remove
  141. +         move.l    a5,a1
  142. +         moveq    #0,d0
  143. +         move.w    16(a5),d0
  144. +         suba.l    d0,a1
  145. +         add.w    18(a5),d0
  146. +         RECALL    FreeMem
  147. + 1$        move.l    a2,d0            ; return SegList (or NULL)
  148. +         movem.l    (sp)+,a2/a5/a6
  149. +         rts
  150. + 
  151. + ***************************************************************************
  152. + 
  153.   ; inspired from 'TolleUhr' by Matthias Fleischer - translated to assembler
  154.   ; (gcc is good - I am better ;)
  155.   
  156. ***************
  157. *** 11,16 ****
  158. --- 156,162 ----
  159.   ; uhr v1.3   07/03/95 by Gunther Nikl - alarmSet() fixed (didn't set st/mi)
  160.   ;            05/05/95 by Gunther Nikl - optional background image added
  161.   ;            18/05/95 by Gunther Nikl - added 'NOREMAP' switch
  162. + ;            15/11/95 by Gunther Nikl - first function now '_TolleUhr'
  163.   
  164.   ***************************************************************************
  165.   
  166. ***************
  167. *** 26,32 ****
  168.   
  169.           include    exec/types.i
  170.           include    lvo30/dos_lib.i
  171. -         include    lvo30/exec_lib.i
  172.           include    lvo30/icon_lib.i
  173.           include    lvo30/locale_lib.i
  174.           include    lvo30/gadtools_lib.i
  175. --- 172,177 ----
  176. ***************
  177. *** 48,57 ****
  178.           jsr    _LVO\1(a6)
  179.           ENDM
  180.   
  181. - RECALL        MACRO
  182. -         jsr    _LVO\1(a6)
  183. -         ENDM
  184. - 
  185.   MITEM        macro
  186.           IFEQ    NARG-5
  187.   ItemCount    set    \5
  188. --- 193,198 ----
  189. ***************
  190. *** 215,230 ****
  191.   
  192.   ***************************************************************************
  193.   
  194. !         SECTION start,CODE
  195. ! 
  196. ! start        move.w    #(gb_SIZEOF>>2)-1,d0
  197.   1$        clr.l    -(sp)            ; clear local var area
  198.           dbra    d0,1$
  199.           move.l    sp,bp
  200.           move.l    4,a6
  201.           move.l    a6,SysBase(bp)        ; cache ExecBase
  202.           suba.l    a1,a1
  203. !         RECALL    FindTask        ; find us
  204.           move.l    d0,a2
  205.           move.l    a2,OurTask(bp)        ; cache task ptr
  206.           tst.l    172(a2)
  207. --- 356,370 ----
  208.   
  209.   ***************************************************************************
  210.   
  211. ! LibClock    movem.l    d2/a2/a4/a6,-(sp)
  212. !         move.w    #(gb_SIZEOF>>2)-1,d0
  213.   1$        clr.l    -(sp)            ; clear local var area
  214.           dbra    d0,1$
  215.           move.l    sp,bp
  216.           move.l    4,a6
  217.           move.l    a6,SysBase(bp)        ; cache ExecBase
  218.           suba.l    a1,a1
  219. !         RECALL    FindTask        ; use system function ..
  220.           move.l    d0,a2
  221.           move.l    a2,OurTask(bp)        ; cache task ptr
  222.           tst.l    172(a2)
  223. ***************
  224. *** 244,249 ****
  225. --- 384,390 ----
  226.           RECALL    ReplyMsg        ; reply wbsmg
  227.   1$        moveq    #0,d0
  228.           lea    gb_SIZEOF(bp),sp
  229. +         movem.l    (sp)+,d2/a2/a4/a6
  230.           rts
  231.   
  232.   ***************************************************************************
  233.